home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok19 / qtext / qtextdemo.mod < prev    next >
Text File  |  1993-11-04  |  2KB  |  69 lines
  1. (*---------------------------------------------------------------------------
  2.   :Program.    QTextDemo
  3.   :Contents.   Demo for QText - a fast Text-Viewer
  4.   :Author.     Fridtjof Siebert
  5.   :Address.    Nobileweg 67, D-7-Stgt-40
  6.   :Phone.      (0)711/822509
  7.   :Shortcut.   [fbs]
  8.   :Version.    1.0
  9.   :Date.       29-Apr-89
  10.   :Copyright.  PD
  11.   :Language.   Modula-2
  12.   :Translator. M2Amiga v3.1d
  13.   :Remark.     Sorry, but this compiles only under m2c V3.1d.
  14. ---------------------------------------------------------------------------*)
  15.  
  16. MODULE QTextDemo;
  17.  
  18. FROM SYSTEM    IMPORT ADR;
  19. FROM Dos       IMPORT Delay;
  20. FROM Graphics  IMPORT TextAttr, FontStyleSet, FontFlagSet, OpenFont, CloseFont,
  21.                       ViewModeSet, ViewModes, TextFontPtr;
  22. FROM Intuition IMPORT NewScreen, ScreenPtr, customScreen, OpenScreen, CloseScreen,
  23.                       ScreenFlags, ScreenFlagSet;
  24. FROM QText     IMPORT QText;
  25.  
  26. VAR
  27.   NuScreen: NewScreen;
  28.   Screen: ScreenPtr;
  29.   MyFont: TextAttr;
  30.   Font: TextFontPtr;
  31.   i,j,d,q,p: INTEGER;
  32.   Ciapra [0BFE001H]: SET OF (s0,s1,s2,s3,s4,s5,lmb);
  33.  
  34. BEGIN
  35.   WITH MyFont DO
  36.     name := ADR("topaz.font");
  37.     ySize := 8;
  38.     style := FontStyleSet{};
  39.     flags := FontFlagSet{};
  40.   END;
  41.   Font := OpenFont(ADR(MyFont));
  42.   WITH NuScreen DO
  43.     leftEdge     := 0;   topEdge      := 0;
  44.     width        := 640;
  45.     height       := 2*256;
  46.     depth        := 1;
  47.     detailPen    := 0;   blockPen     := 1;
  48.     viewModes    := ViewModeSet{hires};
  49.     font         := NIL; defaultTitle := NIL;
  50.     gadgets      := NIL; customBitMap := NIL;
  51.     type         := customScreen + ScreenFlagSet{screenQuiet};
  52.   END;
  53.   Screen := OpenScreen(NuScreen);
  54.   j := 0; d := 1;
  55.   WHILE lmb IN Ciapra DO
  56.     INC(j,d);
  57.     IF (j=66) OR (j=0) THEN d := -d END;
  58.     p := j; q := d;
  59.     FOR i:=0 TO 248 BY 8 DO
  60.       QText(p,i,ADR(" Hello World! "),Screen^.rastPort.bitMap,Font);
  61.       INC(p,q);
  62.       IF (p=66) OR (p=0) THEN q := -q END;
  63.     END;
  64.   END;
  65.   CloseScreen(Screen);
  66.   CloseFont(Font);
  67. END QTextDemo.
  68.  
  69.